Explorers of the New World/Explorers of the New World.iso/pc/exdata.dir/00735_PICTURES.ls

Text File | 1995-09-10 | 598 b | 20 lines

on showTopicPicture
  global textSprite, clickedTopic, PictureSprite, pictureH, pictureV
  set pictureCast to the number of cast (clickedTopic && "PICTURE")
  if pictureCast = -1 then
    exit
  end if
  set the castNum of sprite textSprite to the number of cast "Empty Text"
  removeTopicMap()
  set the castNum of sprite PictureSprite to the number of cast pictureCast
  set the locH of sprite PictureSprite to pictureH
  set the locV of sprite PictureSprite to pictureV
  removeMoreButtons()
  updateStage()
end

on removeTopicPicture
  global PictureSprite
  removeFromStage(PictureSprite)
end